home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / internet / yam_i_dodatki / yammailcheck / mailcheck.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-03-22  |  2.4 KB  |  139 lines
  1.  
  2. /*  $VER: MailCheck 1.2 (16.03.97)                */
  3. /*                                                */
  4. /*  Automated E-Mail checking with Miami and YAM  */
  5. /*                                                */
  6. /*  ©1997 DCS Softwate by Robert Wilson           */
  7.  
  8. options results
  9.  
  10. open('var','env:ModemStatus','R')
  11. ModStat = readln('var')
  12. close('var') 
  13.  
  14. IF ModStat ~= 0 THEN DO
  15.     if show('p', 'MIAMI.1') then do
  16.         address 'MIAMI.1'
  17.         ISONLINE
  18.         If RC = 0 then do
  19.             say 'Error - Modem not ready.'
  20.             say ""
  21.             open('var','env:MCStep','W')
  22.       writeln('var','0')
  23.       close('var') 
  24.              exit 
  25.             end
  26.     end
  27. END
  28.  
  29. if show('P','YAM')=0 then do
  30.   address command 'run <>nil: yam:yam nocheck'
  31.   i=0
  32.   do until show('P','YAM')>0 | i=3
  33.     address command 'sys:rexxc/WaitForPort YAM'
  34.     i=i+1
  35.   end
  36.   if show('P','YAM')=0 then do
  37.         say 'Error - YAM failed to start.'
  38.     say ""
  39.     open('var','env:MCStep','W')
  40.   writeln('var','0')
  41.   close('var')
  42.     exit 
  43.     end
  44. end
  45.  
  46. if show('P','MIAMI.1')=0 then do
  47.   address command 'run <>nil: Miami:Miami'
  48.   i=0
  49.   do until show('P','MIAMI.1')>0 | i=3
  50.     address command 'sys:rexxc/WaitForPort MIAMI.1'
  51.     i=i+1
  52.   end /* do */
  53.   if show('P','MIAMI.1')=0 then do
  54.         say 'Error - Miami failed to start.'
  55.     say ""
  56.     open('var','env:MCStep','W')
  57.   writeln('var','0')
  58.   close('var')
  59.     exit 
  60.     end
  61. end
  62.  
  63. address 'MIAMI.1'
  64.  
  65. ISONLINE
  66.  
  67. Already = RC
  68.  
  69. If Already = 0 then do
  70.     ONLINE
  71. end
  72.  
  73. ISONLINE
  74. Again = RC
  75.  
  76. If Again = 0 then do
  77.     say 'Error - Could not get Miami on-line.'
  78.     say ""
  79.     open('var','env:MCStep','W')
  80.   writeln('var','0')
  81.   close('var')
  82.     exit 
  83. END
  84.  
  85. Address 'YAM'
  86.  
  87. mailcheck
  88. Anymail = Result
  89. IF Anymail = -1 then do
  90.     say 'Error - Could not connect to mail server.' 
  91.     say ""
  92.     open('var','env:MCStep','W')
  93.   writeln('var','0')
  94.   close('var')
  95.     If Already = 0 then do 
  96.         address 'MIAMI.1'
  97.         OFFLINE
  98.     end
  99.     exit 
  100. END
  101.  
  102. If Anymail = 0 then do
  103.     say 'Connected - No new mail received.'
  104.     say ""
  105. end
  106.  
  107. If Anymail ~= 0 then do
  108.     If Anymail = 1 then do
  109.         say 'Connected - 1 new mail received.'
  110.         say ""
  111.   end
  112.     else do
  113.         say 'Connected -' Anymail 'new mails received.'
  114.         say ""
  115.     end
  116.   address command 'run <>nil: s:SampleCheck'
  117. end
  118.  
  119. open('var','env:MCStep','W')
  120. writeln('var','1')
  121. close('var')
  122.  
  123. open('var','env:MCMail','W')
  124. writeln('var',Anymail)
  125. close('var')
  126.  
  127. open('var','env:MCOkay','W')
  128. writeln('var','1')
  129. close('var')
  130.  
  131. address command 'Copy Env:MCTempDate Env:MCDate QUIET CLONE'
  132.  
  133. If Already = 0 then do 
  134.     address 'MIAMI.1'
  135.     OFFLINE
  136.     exit 
  137. end    
  138.  
  139. exit